Imports System
Imports System.ComponentModel
Imports System.Data
#If MONO_STRICT Then
Imports System.Data.Linq
#Else     ' MONO_STRICT
Imports DbLinq.Data.Linq
Imports DbLinq.Vendor
#End If   ' MONO_STRICT
Imports System.Data.Linq.Mapping
Imports System.Diagnostics

'
'  ____  _     __  __      _        _ 
' |  _ \| |__ |  \/  | ___| |_ __ _| |
' | | | | '_ \| |\/| |/ _ \ __/ _` | |
' | |_| | |_) | |  | |  __/ || (_| | |
' |____/|_.__/|_|  |_|\___|\__\__,_|_|
'
' Auto-generated from main on 2012-07-16 09:08:10Z.
' Please visit http://code.google.com/p/dblinq2007/ for more information.
'
Namespace GPSBilderDatenbank
	
	Partial Public Class Main
		Inherits DataContext
		
		#Region "Extensibility Method Declarations"
		Partial Private Sub OnCreated()
		End Sub
		#End Region
		
		
		Public Sub New(ByVal connectionString As String)
			MyBase.New(connectionString)
			Me.OnCreated
		End Sub
		
		Public Sub New(ByVal connection As String, ByVal mappingSource As MappingSource)
			MyBase.New(connection, mappingSource)
			Me.OnCreated
		End Sub
		
		Public Sub New(ByVal connection As IDbConnection, ByVal mappingSource As MappingSource)
			MyBase.New(connection, mappingSource)
			Me.OnCreated
		End Sub
		
		Public ReadOnly Property GpsbIlder() As Table(Of GpsbIlder)
			Get
				Return Me.GetTable(Of GpsbIlder)
			End Get
		End Property
	End Class
	
	#Region "Start MONO_STRICT"
#If MONO_STRICT Then
    '"
	Partial Public Class Main
		
		Public Sub New(ByVal connection As IDbConnection)
			MyBase.New(connection)
			Me.OnCreated
		End Sub
	End Class
	#Region "End MONO_STRICT"
	#End Region
#Else     ' MONO_STRICT"
	
	Partial Public Class Main
		
		Public Sub New(ByVal connection As IDbConnection)
			MyBase.New(connection, New DbLinq.Sqlite.SqliteVendor)
			Me.OnCreated
		End Sub
		
		Public Sub New(ByVal connection As IDbConnection, ByVal sqlDialect As IVendor)
			MyBase.New(connection, sqlDialect)
			Me.OnCreated
		End Sub
		
		Public Sub New(ByVal connection As IDbConnection, ByVal mappingSource As MappingSource, ByVal sqlDialect As IVendor)
			MyBase.New(connection, mappingSource, sqlDialect)
			Me.OnCreated
		End Sub
	End Class
	#Region "End Not MONO_STRICT"
	#End Region
#End If     ' MONO_STRICT"
	#End Region
	
	<Table(Name:="main.GPSBilder")>  _
	Partial Public Class GpsbIlder
		Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
		
		Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("")
		
		Private _createdTime As String
		
		Private _datum As String
		
		Private _id As String
		
		Private _onlineSourcePath As String
		
		Private _uploadFileName As String
		
		#Region "Extensibility Method Declarations"
		Partial Private Sub OnCreated()
		End Sub
		
		Partial Private Sub OnCreatedTimeChanged()
		End Sub
		
		Partial Private Sub OnCreatedTimeChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnDatumChanged()
		End Sub
		
		Partial Private Sub OnDatumChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnIDChanged()
		End Sub
		
		Partial Private Sub OnIDChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnOnlineSourcePathChanged()
		End Sub
		
		Partial Private Sub OnOnlineSourcePathChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnUploadFileNameChanged()
		End Sub
		
		Partial Private Sub OnUploadFileNameChanging(ByVal value As String)
		End Sub
		#End Region
		
		
		Public Sub New()
			MyBase.New
			Me.OnCreated
		End Sub
		
		<Column(Storage:="_createdTime", Name:="CreatedTime", DbType:="nvarchar(12)", AutoSync:=AutoSync.Never),  _
		 DebuggerNonUserCode()>  _
		Public Property CreatedTime() As String
			Get
				Return Me._createdTime
			End Get
			Set
				If ((_createdTime Is value)  _
							= false) Then
					Me.OnCreatedTimeChanging(value)
					Me.SendPropertyChanging
					Me._createdTime = value
					Me.SendPropertyChanged("CreatedTime")
					Me.OnCreatedTimeChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_datum", Name:="Datum", DbType:="nvarchar(12)", AutoSync:=AutoSync.Never),  _
		 DebuggerNonUserCode()>  _
		Public Property Datum() As String
			Get
				Return Me._datum
			End Get
			Set
				If ((_datum Is value)  _
							= false) Then
					Me.OnDatumChanging(value)
					Me.SendPropertyChanging
					Me._datum = value
					Me.SendPropertyChanged("Datum")
					Me.OnDatumChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_id", Name:="ID", DbType:="nvARCHAR(36)", IsPrimaryKey:=true, AutoSync:=AutoSync.Never),  _
		 DebuggerNonUserCode()>  _
		Public Property ID() As String
			Get
				Return Me._id
			End Get
			Set
				If ((_id Is value)  _
							= false) Then
					Me.OnIDChanging(value)
					Me.SendPropertyChanging
					Me._id = value
					Me.SendPropertyChanged("ID")
					Me.OnIDChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_onlineSourcePath", Name:="OnlineSourcePath", DbType:="nvarchar(4000)", AutoSync:=AutoSync.Never),  _
		 DebuggerNonUserCode()>  _
		Public Property OnlineSourcePath() As String
			Get
				Return Me._onlineSourcePath
			End Get
			Set
				If ((_onlineSourcePath Is value)  _
							= false) Then
					Me.OnOnlineSourcePathChanging(value)
					Me.SendPropertyChanging
					Me._onlineSourcePath = value
					Me.SendPropertyChanged("OnlineSourcePath")
					Me.OnOnlineSourcePathChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_uploadFileName", Name:="UploadFileName", DbType:="nvarchar(4000)", AutoSync:=AutoSync.Never),  _
		 DebuggerNonUserCode()>  _
		Public Property UploadFileName() As String
			Get
				Return Me._uploadFileName
			End Get
			Set
				If ((_uploadFileName Is value)  _
							= false) Then
					Me.OnUploadFileNameChanging(value)
					Me.SendPropertyChanging
					Me._uploadFileName = value
					Me.SendPropertyChanged("UploadFileName")
					Me.OnUploadFileNameChanged
				End If
			End Set
		End Property
		
		Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
		
		Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
		
		Protected Overridable Sub SendPropertyChanging()
			Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
			If (Not (h) Is Nothing) Then
				h(Me, emptyChangingEventArgs)
			End If
		End Sub
		
		Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
			Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
			If (Not (h) Is Nothing) Then
				h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
			End If
		End Sub
	End Class
End Namespace
